home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / screen write.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  84 lines
  1. ; demo prg open screen and write a screen
  2. movescreen   = -162
  3. openscreen   = -198
  4. closescreen  = -66
  5. closelibrary = -414
  6. openlib      = -408
  7. execbase     = 4
  8. joy2         = $dff00a
  9. feuer        = $dfe001
  10. ;
  11. run:
  12. bsr openint
  13. bsr scropen
  14. move joy2,d6
  15. loop:
  16. tst.b feuer
  17. bpl ende
  18. move joy2,d0
  19. sub d6,d0
  20. cmp #$0100,d0
  21. bne noup
  22. move.l #-1,d1
  23. bsr scrmove
  24. bra loop
  25. noup:
  26. cmp #$0001,d0
  27. bne loop
  28. move.l #1,d1
  29. bsr scrmove
  30. bra loop
  31. ende:
  32. bsr scrclose
  33. bsr closeint
  34. rts
  35. openint:
  36. move.l execbase,a6
  37. lea intname,a1
  38. jsr openlib(a6)
  39. move.l d0,intbase
  40. rts
  41. closeint:
  42. move.l execbase,a6
  43. move.l intbase,a1
  44. jsr closelibrary(a6)
  45. rts
  46. scropen:
  47. move.l intbase,a6
  48. lea screen_defs,a0
  49. jsr openscreen(a6)
  50. move.l d0,screenhd
  51. rts
  52. scrclose:
  53. move.l intbase,a6
  54. move.l screenhd,a0
  55. jsr closescreen(a6)
  56. rts
  57. scrmove:
  58. move.l intbase,a6
  59. move.l screenhd,a0
  60. clr.l d0
  61. jsr movescreen(a6)
  62. rts
  63. even
  64. screen_defs:
  65. x_pos:          dc.w      0
  66. y_pos:          dc.w      0
  67. width:          dc.w    320 
  68. height:         dc.w    200
  69. depth:          dc.w      2
  70. detail_pen:     dc.w      1
  71. block_pen:      dc.w      3
  72. view_modes:     dc.w      2
  73. screen_type:    dc.w     15
  74. font:           dc.l      0
  75. titel:          dc.l  titel
  76. gadgets:        dc.l      0
  77. bitmap:         dc.l      0
  78. intbase:        dc.l      0
  79. screenhd:       dc.l      0
  80. intname:        dc.b "intuition.library",0
  81. even
  82. title:          dc.b "Danish Demo Duo 1987",0
  83. even
  84.